object dlgExclude: TdlgExclude Left = 305 Top = 181 ActiveControl = btnOk BorderIcons = [biSystemMenu, biHelp] BorderStyle = bsDialog Caption = 'Exclude files or directories' ClientHeight = 236 ClientWidth = 455 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object btnOk: TBitBtn Left = 368 Top = 57 Width = 75 Height = 25 TabOrder = 1 Kind = bkOK end object btnCancel: TBitBtn Left = 368 Top = 89 Width = 75 Height = 25 TabOrder = 2 Kind = bkCancel end object btnHelp: TBitBtn Left = 368 Top = 121 Width = 75 Height = 25 HelpContext = 200 TabOrder = 3 OnClick = btnHelpClick Kind = bkHelp end object pagExclude: TPageControl Left = 8 Top = 8 Width = 345 Height = 185 ActivePage = tabDir TabOrder = 0 TabWidth = 80 OnChange = TabChanged object tabDir: TTabSheet Caption = 'Directory' OnEnter = TabChanged object lstExcDirs: TListBox Left = 8 Top = 8 Width = 321 Height = 121 HelpContext = 201 IntegralHeight = True ItemHeight = 13 Sorted = True TabOrder = 0 end end object tabName: TTabSheet Caption = 'File name' object lstExcNames: TListBox Left = 56 Top = 8 Width = 225 Height = 121 HelpContext = 202 IntegralHeight = True ItemHeight = 13 Sorted = True TabOrder = 0 end end object tabExt: TTabSheet Caption = 'Extension' object lstExcGroups: TListBox Left = 136 Top = 8 Width = 65 Height = 121 HelpContext = 203 IntegralHeight = True ItemHeight = 13 Sorted = True TabOrder = 0 end end end object btnPlus: TBitBtn Left = 104 Top = 204 Width = 73 Height = 25 HelpContext = 204 Caption = 'Add' TabOrder = 4 OnClick = btnPlusClick Glyph.Data = { E6000000424DE60000000000000076000000280000000E0000000E0000000100 0400000000007000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3300333333333333330033333333333333003333300033333300333330A03333 3300333330A033333300330000A000033300330AAAAAAA033300330000A00003 3300333330A033333300333330A0333333003333300033333300333333333333 33003333333333333300} end object btnMinus: TBitBtn Left = 184 Top = 204 Width = 73 Height = 25 HelpContext = 205 Caption = 'Delete' TabOrder = 5 OnClick = btnMinusClick Glyph.Data = { E6000000424DE60000000000000076000000280000000E0000000E0000000100 0400000000007000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3300333333333333330033333333333333003333333333333300333333333333 330033333333333333003300000000003300330AAAAAAAA03300330000000000 3300333333333333330033333333333333003333333333333300333333333333 33003333333333333300} end object dlgOpen: TOpenDialog FileEditStyle = fsEdit Filter = 'Word Files|*.DO?|All Files|*.*' Options = [ofHideReadOnly, ofNoTestFileCreate] Title = 'Exclude' Left = 416 Top = 168 end end